perm filename INTOP.SAI[DIA,HPM] blob
sn#507004 filedate 1980-05-04 generic text, type T, neo UTF8
BEGIN "DSK:INTOP.GOD[DIA,HPM]"
REQUIRE "GRAHDR.SAI[GOD,HPM]" SOURCE_FILE;
INTEGER FJ;
FJ←FILJOB("DSK:INTOP.GOD[DIA,HPM]");
DDINIT;
SCREEN(.00000,1.0000,1.0000,.00000);
LITEN;
LINE(.00000,.00000,1.0000,.00000,0);
LINE(1.0000,1.0000,1.0000,.00000,0);
LINE(1.0000,1.0000,.00000,1.0000,0);
LINE(.00000,.00000,.00000,1.0000,0);
PICFIL(.00000,1.0000,1.0000,.00000,"U:SEPT.5[DIA,HPM]");
LINE(.11581,.39133,.11581,.42533,0);
LINE(.14981,.42533,.11581,.42533,0);
LINE(.14981,.42533,.14981,.39133,0);
LINE(.11581,.39133,.14981,.39133,0);
FNTPOS(.13281,.40833,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-5.0000,-09.000,2,"1");
FNTEXT(-9.0000,-13.000,2,"1");
FNTEXT(-9.0000,-09.000,2,"1");
FNTEXT(-5.0000,-13.000,2,"1");
LITEN; FNTEXT(-7.0000,-11.000,2,"1");
LINE(.22519,.10800,.22519,.14200,0);
LINE(.25919,.14200,.22519,.14200,0);
LINE(.25919,.14200,.25919,.10800,0);
LINE(.22519,.10800,.25919,.10800,0);
FNTPOS(.24219,.12500,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-5.0000,-09.000,2,"2");
FNTEXT(-9.0000,-13.000,2,"2");
FNTEXT(-9.0000,-09.000,2,"2");
FNTEXT(-5.0000,-13.000,2,"2");
LITEN; FNTEXT(-7.0000,-11.000,2,"2");
LINE(.77206,.34133,.77206,.37533,0);
LINE(.80606,.37533,.77206,.37533,0);
LINE(.80606,.37533,.80606,.34133,0);
LINE(.77206,.34133,.80606,.34133,0);
FNTPOS(.78906,.35833,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-5.0000,-09.000,2,"3");
FNTEXT(-9.0000,-13.000,2,"3");
FNTEXT(-9.0000,-09.000,2,"3");
FNTEXT(-5.0000,-13.000,2,"3");
LITEN; FNTEXT(-7.0000,-11.000,2,"3");
LINE(.70956,.30800,.70956,.34200,0);
LINE(.74356,.34200,.70956,.34200,0);
LINE(.74356,.34200,.74356,.30800,0);
LINE(.70956,.30800,.74356,.30800,0);
FNTPOS(.72656,.32500,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-5.0000,-09.000,2,"4");
FNTEXT(-9.0000,-13.000,2,"4");
FNTEXT(-9.0000,-09.000,2,"4");
FNTEXT(-5.0000,-13.000,2,"4");
LITEN; FNTEXT(-7.0000,-11.000,2,"4");
LINE(.78769,.14133,.78769,.17533,0);
LINE(.82169,.17533,.78769,.17533,0);
LINE(.82169,.17533,.82169,.14133,0);
LINE(.78769,.14133,.82169,.14133,0);
FNTPOS(.80469,.15833,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-5.0000,-09.000,2,"5");
FNTEXT(-9.0000,-13.000,2,"5");
FNTEXT(-9.0000,-09.000,2,"5");
FNTEXT(-5.0000,-13.000,2,"5");
LITEN; FNTEXT(-7.0000,-11.000,2,"5");
LINE(.30331,.27467,.30331,.30867,0);
LINE(.33731,.30867,.30331,.30867,0);
LINE(.33731,.30867,.33731,.27467,0);
LINE(.30331,.27467,.33731,.27467,0);
FNTPOS(.32031,.29167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-5.0000,-09.000,2,"6");
FNTEXT(-9.0000,-13.000,2,"6");
FNTEXT(-9.0000,-09.000,2,"6");
FNTEXT(-5.0000,-13.000,2,"6");
LITEN; FNTEXT(-7.0000,-11.000,2,"6");
LINE(.63144,.27467,.63144,.30867,0);
LINE(.66544,.30867,.63144,.30867,0);
LINE(.66544,.30867,.66544,.27467,0);
LINE(.63144,.27467,.66544,.27467,0);
FNTPOS(.64844,.29167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-5.0000,-09.000,2,"7");
FNTEXT(-9.0000,-13.000,2,"7");
FNTEXT(-9.0000,-09.000,2,"7");
FNTEXT(-5.0000,-13.000,2,"7");
LITEN; FNTEXT(-7.0000,-11.000,2,"7");
LINE(.14706,.25800,.14706,.29200,0);
LINE(.18106,.29200,.14706,.29200,0);
LINE(.18106,.29200,.18106,.25800,0);
LINE(.14706,.25800,.18106,.25800,0);
FNTPOS(.16406,.27500,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-5.0000,-09.000,2,"8");
FNTEXT(-9.0000,-13.000,2,"8");
FNTEXT(-9.0000,-09.000,2,"8");
FNTEXT(-5.0000,-13.000,2,"8");
LITEN; FNTEXT(-7.0000,-11.000,2,"8");
LINE(.55331,.20800,.55331,.24200,0);
LINE(.58731,.24200,.55331,.24200,0);
LINE(.58731,.24200,.58731,.20800,0);
LINE(.55331,.20800,.58731,.20800,0);
FNTPOS(.57031,.22500,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-5.0000,-09.000,2,"9");
FNTEXT(-9.0000,-13.000,2,"9");
FNTEXT(-9.0000,-09.000,2,"9");
FNTEXT(-5.0000,-13.000,2,"9");
LITEN; FNTEXT(-7.0000,-11.000,2,"9");
LINE(.80331,.22467,.80331,.25867,0);
LINE(.83731,.25867,.80331,.25867,0);
LINE(.83731,.25867,.83731,.22467,0);
LINE(.80331,.22467,.83731,.22467,0);
FNTPOS(.82031,.24167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"10");
FNTEXT(-17.000,-13.000,2,"10");
FNTEXT(-17.000,-09.000,2,"10");
FNTEXT(-13.000,-13.000,2,"10");
LITEN; FNTEXT(-15.000,-11.000,2,"10");
LINE(.38144,.22467,.38144,.25867,0);
LINE(.41544,.25867,.38144,.25867,0);
LINE(.41544,.25867,.41544,.22467,0);
LINE(.38144,.22467,.41544,.22467,0);
FNTPOS(.39844,.24167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"11");
FNTEXT(-17.000,-13.000,2,"11");
FNTEXT(-17.000,-09.000,2,"11");
FNTEXT(-13.000,-13.000,2,"11");
LITEN; FNTEXT(-15.000,-11.000,2,"11");
LINE(.45956,.22467,.45956,.25867,0);
LINE(.49356,.25867,.45956,.25867,0);
LINE(.49356,.25867,.49356,.22467,0);
LINE(.45956,.22467,.49356,.22467,0);
FNTPOS(.47656,.24167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"12");
FNTEXT(-17.000,-13.000,2,"12");
FNTEXT(-17.000,-09.000,2,"12");
FNTEXT(-13.000,-13.000,2,"12");
LITEN; FNTEXT(-15.000,-11.000,2,"12");
LINE(.83456,.27467,.83456,.30867,0);
LINE(.86856,.30867,.83456,.30867,0);
LINE(.86856,.30867,.86856,.27467,0);
LINE(.83456,.27467,.86856,.27467,0);
FNTPOS(.85156,.29167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"13");
FNTEXT(-17.000,-13.000,2,"13");
FNTEXT(-17.000,-09.000,2,"13");
FNTEXT(-13.000,-13.000,2,"13");
LITEN; FNTEXT(-15.000,-11.000,2,"13");
LINE(.24081,.34133,.24081,.37533,0);
LINE(.27481,.37533,.24081,.37533,0);
LINE(.27481,.37533,.27481,.34133,0);
LINE(.24081,.34133,.27481,.34133,0);
FNTPOS(.25781,.35833,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"14");
FNTEXT(-17.000,-13.000,2,"14");
FNTEXT(-17.000,-09.000,2,"14");
FNTEXT(-13.000,-13.000,2,"14");
LITEN; FNTEXT(-15.000,-11.000,2,"14");
LINE(.50644,.32467,.50644,.35867,0);
LINE(.54044,.35867,.50644,.35867,0);
LINE(.54044,.35867,.54044,.32467,0);
LINE(.50644,.32467,.54044,.32467,0);
FNTPOS(.52344,.34167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"15");
FNTEXT(-17.000,-13.000,2,"15");
FNTEXT(-17.000,-09.000,2,"15");
FNTEXT(-13.000,-13.000,2,"15");
LITEN; FNTEXT(-15.000,-11.000,2,"15");
LINE(.47519,.14133,.47519,.17533,0);
LINE(.50919,.17533,.47519,.17533,0);
LINE(.50919,.17533,.50919,.14133,0);
LINE(.47519,.14133,.50919,.14133,0);
FNTPOS(.49219,.15833,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"16");
FNTEXT(-17.000,-13.000,2,"16");
FNTEXT(-17.000,-09.000,2,"16");
FNTEXT(-13.000,-13.000,2,"16");
LITEN; FNTEXT(-15.000,-11.000,2,"16");
LINE(.56894,.32467,.56894,.35867,0);
LINE(.60294,.35867,.56894,.35867,0);
LINE(.60294,.35867,.60294,.32467,0);
LINE(.56894,.32467,.60294,.32467,0);
FNTPOS(.58594,.34167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"17");
FNTEXT(-17.000,-13.000,2,"17");
FNTEXT(-17.000,-09.000,2,"17");
FNTEXT(-13.000,-13.000,2,"17");
LITEN; FNTEXT(-15.000,-11.000,2,"17");
LINE(.68938@-1,.40800,.68938@-1,.44200,0);
LINE(.10294,.44200,.68938@-1,.44200,0);
LINE(.10294,.44200,.10294,.40800,0);
LINE(.68938@-1,.40800,.10294,.40800,0);
FNTPOS(.85938@-1,.42500,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"18");
FNTEXT(-17.000,-13.000,2,"18");
FNTEXT(-17.000,-09.000,2,"18");
FNTEXT(-13.000,-13.000,2,"18");
LITEN; FNTEXT(-15.000,-11.000,2,"18");
LINE(.45956,.27467,.45956,.30867,0);
LINE(.49356,.30867,.45956,.30867,0);
LINE(.49356,.30867,.49356,.27467,0);
LINE(.45956,.27467,.49356,.27467,0);
FNTPOS(.47656,.29167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"19");
FNTEXT(-17.000,-13.000,2,"19");
FNTEXT(-17.000,-09.000,2,"19");
FNTEXT(-13.000,-13.000,2,"19");
LITEN; FNTEXT(-15.000,-11.000,2,"19");
LINE(.38144,.41333@-1,.38144,.75333@-1,0);
LINE(.41544,.75333@-1,.38144,.75333@-1,0);
LINE(.41544,.75333@-1,.41544,.41333@-1,0);
LINE(.38144,.41333@-1,.41544,.41333@-1,0);
FNTPOS(.39844,.58333@-1,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"20");
FNTEXT(-17.000,-13.000,2,"20");
FNTEXT(-17.000,-09.000,2,"20");
FNTEXT(-13.000,-13.000,2,"20");
LITEN; FNTEXT(-15.000,-11.000,2,"20");
LINE(.67831,.19133,.67831,.22533,0);
LINE(.71231,.22533,.67831,.22533,0);
LINE(.71231,.22533,.71231,.19133,0);
LINE(.67831,.19133,.71231,.19133,0);
FNTPOS(.69531,.20833,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"21");
FNTEXT(-17.000,-13.000,2,"21");
FNTEXT(-17.000,-09.000,2,"21");
FNTEXT(-13.000,-13.000,2,"21");
LITEN; FNTEXT(-15.000,-11.000,2,"21");
LINE(.27206,.58000@-1,.27206,.92000@-1,0);
LINE(.30606,.92000@-1,.27206,.92000@-1,0);
LINE(.30606,.92000@-1,.30606,.58000@-1,0);
LINE(.27206,.58000@-1,.30606,.58000@-1,0);
FNTPOS(.28906,.75000@-1,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"22");
FNTEXT(-17.000,-13.000,2,"22");
FNTEXT(-17.000,-09.000,2,"22");
FNTEXT(-13.000,-13.000,2,"22");
LITEN; FNTEXT(-15.000,-11.000,2,"22");
LINE(.56894,.27467,.56894,.30867,0);
LINE(.60294,.30867,.56894,.30867,0);
LINE(.60294,.30867,.60294,.27467,0);
LINE(.56894,.27467,.60294,.27467,0);
FNTPOS(.58594,.29167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"23");
FNTEXT(-17.000,-13.000,2,"23");
FNTEXT(-17.000,-09.000,2,"23");
FNTEXT(-13.000,-13.000,2,"23");
LITEN; FNTEXT(-15.000,-11.000,2,"23");
LINE(.22519,.29133,.22519,.32533,0);
LINE(.25919,.32533,.22519,.32533,0);
LINE(.25919,.32533,.25919,.29133,0);
LINE(.22519,.29133,.25919,.29133,0);
FNTPOS(.24219,.30833,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"24");
FNTEXT(-17.000,-13.000,2,"24");
FNTEXT(-17.000,-09.000,2,"24");
FNTEXT(-13.000,-13.000,2,"24");
LITEN; FNTEXT(-15.000,-11.000,2,"24");
LINE(.36581,.91333@-1,.36581,.12533,0);
LINE(.39981,.12533,.36581,.12533,0);
LINE(.39981,.12533,.39981,.91333@-1,0);
LINE(.36581,.91333@-1,.39981,.91333@-1,0);
FNTPOS(.38281,.10833,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"25");
FNTEXT(-17.000,-13.000,2,"25");
FNTEXT(-17.000,-09.000,2,"25");
FNTEXT(-13.000,-13.000,2,"25");
LITEN; FNTEXT(-15.000,-11.000,2,"25");
LINE(.10019,.24667@-1,.10019,.58667@-1,0);
LINE(.13419,.58667@-1,.10019,.58667@-1,0);
LINE(.13419,.58667@-1,.13419,.24667@-1,0);
LINE(.10019,.24667@-1,.13419,.24667@-1,0);
FNTPOS(.11719,.41667@-1,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"26");
FNTEXT(-17.000,-13.000,2,"26");
FNTEXT(-17.000,-09.000,2,"26");
FNTEXT(-13.000,-13.000,2,"26");
LITEN; FNTEXT(-15.000,-11.000,2,"26");
LINE(.45956,.74667@-1,.45956,.10867,0);
LINE(.49356,.10867,.45956,.10867,0);
LINE(.49356,.10867,.49356,.74667@-1,0);
LINE(.45956,.74667@-1,.49356,.74667@-1,0);
FNTPOS(.47656,.91667@-1,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"27");
FNTEXT(-17.000,-13.000,2,"27");
FNTEXT(-17.000,-09.000,2,"27");
FNTEXT(-13.000,-13.000,2,"27");
LITEN; FNTEXT(-15.000,-11.000,2,"27");
LINE(.35019,.34133,.35019,.37533,0);
LINE(.38419,.37533,.35019,.37533,0);
LINE(.38419,.37533,.38419,.34133,0);
LINE(.35019,.34133,.38419,.34133,0);
FNTPOS(.36719,.35833,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"28");
FNTEXT(-17.000,-13.000,2,"28");
FNTEXT(-17.000,-09.000,2,"28");
FNTEXT(-13.000,-13.000,2,"28");
LITEN; FNTEXT(-15.000,-11.000,2,"28");
LINE(.44394,.32467,.44394,.35867,0);
LINE(.47794,.35867,.44394,.35867,0);
LINE(.47794,.35867,.47794,.32467,0);
LINE(.44394,.32467,.47794,.32467,0);
FNTPOS(.46094,.34167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"29");
FNTEXT(-17.000,-13.000,2,"29");
FNTEXT(-17.000,-09.000,2,"29");
FNTEXT(-13.000,-13.000,2,"29");
LITEN; FNTEXT(-15.000,-11.000,2,"29");
LINE(.14706,.14133,.14706,.17533,0);
LINE(.18106,.17533,.14706,.17533,0);
LINE(.18106,.17533,.18106,.14133,0);
LINE(.14706,.14133,.18106,.14133,0);
FNTPOS(.16406,.15833,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"30");
FNTEXT(-17.000,-13.000,2,"30");
FNTEXT(-17.000,-09.000,2,"30");
FNTEXT(-13.000,-13.000,2,"30");
LITEN; FNTEXT(-15.000,-11.000,2,"30");
LINE(.94394,.15800,.94394,.19200,0);
LINE(.97794,.19200,.94394,.19200,0);
LINE(.97794,.19200,.97794,.15800,0);
LINE(.94394,.15800,.97794,.15800,0);
FNTPOS(.96094,.17500,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"31");
FNTEXT(-17.000,-13.000,2,"31");
FNTEXT(-17.000,-09.000,2,"31");
FNTEXT(-13.000,-13.000,2,"31");
LITEN; FNTEXT(-15.000,-11.000,2,"31");
LINE(.88144,.39133,.88144,.42533,0);
LINE(.91544,.42533,.88144,.42533,0);
LINE(.91544,.42533,.91544,.39133,0);
LINE(.88144,.39133,.91544,.39133,0);
FNTPOS(.89844,.40833,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"32");
FNTEXT(-17.000,-13.000,2,"32");
FNTEXT(-17.000,-09.000,2,"32");
FNTEXT(-13.000,-13.000,2,"32");
LITEN; FNTEXT(-15.000,-11.000,2,"32");
LINE(.56894,.58000@-1,.56894,.92000@-1,0);
LINE(.60294,.92000@-1,.56894,.92000@-1,0);
LINE(.60294,.92000@-1,.60294,.58000@-1,0);
LINE(.56894,.58000@-1,.60294,.58000@-1,0);
FNTPOS(.58594,.75000@-1,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"33");
FNTEXT(-17.000,-13.000,2,"33");
FNTEXT(-17.000,-09.000,2,"33");
FNTEXT(-13.000,-13.000,2,"33");
LITEN; FNTEXT(-15.000,-11.000,2,"33");
LINE(.66269,.24667@-1,.66269,.58667@-1,0);
LINE(.69669,.58667@-1,.66269,.58667@-1,0);
LINE(.69669,.58667@-1,.69669,.24667@-1,0);
LINE(.66269,.24667@-1,.69669,.24667@-1,0);
FNTPOS(.67969,.41667@-1,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"34");
FNTEXT(-17.000,-13.000,2,"34");
FNTEXT(-17.000,-09.000,2,"34");
FNTEXT(-13.000,-13.000,2,"34");
LITEN; FNTEXT(-15.000,-11.000,2,"34");
LINE(.37688@-1,.24667@-1,.37688@-1,.58667@-1,0);
LINE(.71688@-1,.58667@-1,.37688@-1,.58667@-1,0);
LINE(.71688@-1,.58667@-1,.71688@-1,.24667@-1,0);
LINE(.37688@-1,.24667@-1,.71688@-1,.24667@-1,0);
FNTPOS(.54688@-1,.41667@-1,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"35");
FNTEXT(-17.000,-13.000,2,"35");
FNTEXT(-17.000,-09.000,2,"35");
FNTEXT(-13.000,-13.000,2,"35");
LITEN; FNTEXT(-15.000,-11.000,2,"35");
LINE(.16269,.50800,.16269,.54200,0);
LINE(.19669,.54200,.16269,.54200,0);
LINE(.19669,.54200,.19669,.50800,0);
LINE(.16269,.50800,.19669,.50800,0);
FNTPOS(.17969,.52500,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"36");
FNTEXT(-17.000,-13.000,2,"36");
FNTEXT(-17.000,-09.000,2,"36");
FNTEXT(-13.000,-13.000,2,"36");
LITEN; FNTEXT(-15.000,-11.000,2,"36");
LINE(.86581,.79133,.86581,.82533,0);
LINE(.89981,.82533,.86581,.82533,0);
LINE(.89981,.82533,.89981,.79133,0);
LINE(.86581,.79133,.89981,.79133,0);
FNTPOS(.88281,.80833,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"37");
FNTEXT(-17.000,-13.000,2,"37");
FNTEXT(-17.000,-09.000,2,"37");
FNTEXT(-13.000,-13.000,2,"37");
LITEN; FNTEXT(-15.000,-11.000,2,"37");
LINE(.20956,.82467,.20956,.85867,0);
LINE(.24356,.85867,.20956,.85867,0);
LINE(.24356,.85867,.24356,.82467,0);
LINE(.20956,.82467,.24356,.82467,0);
FNTPOS(.22656,.84167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"38");
FNTEXT(-17.000,-13.000,2,"38");
FNTEXT(-17.000,-09.000,2,"38");
FNTEXT(-13.000,-13.000,2,"38");
LITEN; FNTEXT(-15.000,-11.000,2,"38");
LINE(.36581,.85800,.36581,.89200,0);
LINE(.39981,.89200,.36581,.89200,0);
LINE(.39981,.89200,.39981,.85800,0);
LINE(.36581,.85800,.39981,.85800,0);
FNTPOS(.38281,.87500,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"39");
FNTEXT(-17.000,-13.000,2,"39");
FNTEXT(-17.000,-09.000,2,"39");
FNTEXT(-13.000,-13.000,2,"39");
LITEN; FNTEXT(-15.000,-11.000,2,"39");
LINE(.31894,.87467,.31894,.90867,0);
LINE(.35294,.90867,.31894,.90867,0);
LINE(.35294,.90867,.35294,.87467,0);
LINE(.31894,.87467,.35294,.87467,0);
FNTPOS(.33594,.89167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"40");
FNTEXT(-17.000,-13.000,2,"40");
FNTEXT(-17.000,-09.000,2,"40");
FNTEXT(-13.000,-13.000,2,"40");
LITEN; FNTEXT(-15.000,-11.000,2,"40");
LINE(.30331,.57467,.30331,.60867,0);
LINE(.33731,.60867,.30331,.60867,0);
LINE(.33731,.60867,.33731,.57467,0);
LINE(.30331,.57467,.33731,.57467,0);
FNTPOS(.32031,.59167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"41");
FNTEXT(-17.000,-13.000,2,"41");
FNTEXT(-17.000,-09.000,2,"41");
FNTEXT(-13.000,-13.000,2,"41");
LITEN; FNTEXT(-15.000,-11.000,2,"41");
LINE(.85019,.65800,.85019,.69200,0);
LINE(.88419,.69200,.85019,.69200,0);
LINE(.88419,.69200,.88419,.65800,0);
LINE(.85019,.65800,.88419,.65800,0);
FNTPOS(.86719,.67500,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"42");
FNTEXT(-17.000,-13.000,2,"42");
FNTEXT(-17.000,-09.000,2,"42");
FNTEXT(-13.000,-13.000,2,"42");
LITEN; FNTEXT(-15.000,-11.000,2,"42");
LINE(.30331,.70800,.30331,.74200,0);
LINE(.33731,.74200,.30331,.74200,0);
LINE(.33731,.74200,.33731,.70800,0);
LINE(.30331,.70800,.33731,.70800,0);
FNTPOS(.32031,.72500,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"43");
FNTEXT(-17.000,-13.000,2,"43");
FNTEXT(-17.000,-09.000,2,"43");
FNTEXT(-13.000,-13.000,2,"43");
LITEN; FNTEXT(-15.000,-11.000,2,"43");
LINE(.85019,.72467,.85019,.75867,0);
LINE(.88419,.75867,.85019,.75867,0);
LINE(.88419,.75867,.88419,.72467,0);
LINE(.85019,.72467,.88419,.72467,0);
FNTPOS(.86719,.74167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"44");
FNTEXT(-17.000,-13.000,2,"44");
FNTEXT(-17.000,-09.000,2,"44");
FNTEXT(-13.000,-13.000,2,"44");
LITEN; FNTEXT(-15.000,-11.000,2,"44");
LINE(.24081,.77467,.24081,.80867,0);
LINE(.27481,.80867,.24081,.80867,0);
LINE(.27481,.80867,.27481,.77467,0);
LINE(.24081,.77467,.27481,.77467,0);
FNTPOS(.25781,.79167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"45");
FNTEXT(-17.000,-13.000,2,"45");
FNTEXT(-17.000,-09.000,2,"45");
FNTEXT(-13.000,-13.000,2,"45");
LITEN; FNTEXT(-15.000,-11.000,2,"45");
LINE(.94394,.80800,.94394,.84200,0);
LINE(.97794,.84200,.94394,.84200,0);
LINE(.97794,.84200,.97794,.80800,0);
LINE(.94394,.80800,.97794,.80800,0);
FNTPOS(.96094,.82500,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"46");
FNTEXT(-17.000,-13.000,2,"46");
FNTEXT(-17.000,-09.000,2,"46");
FNTEXT(-13.000,-13.000,2,"46");
LITEN; FNTEXT(-15.000,-11.000,2,"46");
LINE(.78769,.85800,.78769,.89200,0);
LINE(.82169,.89200,.78769,.89200,0);
LINE(.82169,.89200,.82169,.85800,0);
LINE(.78769,.85800,.82169,.85800,0);
FNTPOS(.80469,.87500,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"47");
FNTEXT(-17.000,-13.000,2,"47");
FNTEXT(-17.000,-09.000,2,"47");
FNTEXT(-13.000,-13.000,2,"47");
LITEN; FNTEXT(-15.000,-11.000,2,"47");
LINE(.91269,.24667@-1,.91269,.58667@-1,0);
LINE(.94669,.58667@-1,.91269,.58667@-1,0);
LINE(.94669,.58667@-1,.94669,.24667@-1,0);
LINE(.91269,.24667@-1,.94669,.24667@-1,0);
FNTPOS(.92969,.41667@-1,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"48");
FNTEXT(-17.000,-13.000,2,"48");
FNTEXT(-17.000,-09.000,2,"48");
FNTEXT(-13.000,-13.000,2,"48");
LITEN; FNTEXT(-15.000,-11.000,2,"48");
LINE(.22519,.47467,.22519,.50867,0);
LINE(.25919,.50867,.22519,.50867,0);
LINE(.25919,.50867,.25919,.47467,0);
LINE(.22519,.47467,.25919,.47467,0);
FNTPOS(.24219,.49167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"49");
FNTEXT(-17.000,-13.000,2,"49");
FNTEXT(-17.000,-09.000,2,"49");
FNTEXT(-13.000,-13.000,2,"49");
LITEN; FNTEXT(-15.000,-11.000,2,"49");
LINE(.28769,.62467,.28769,.65867,0);
LINE(.32169,.65867,.28769,.65867,0);
LINE(.32169,.65867,.32169,.62467,0);
LINE(.28769,.62467,.32169,.62467,0);
FNTPOS(.30469,.64167,1.0000,1.0000,.00000,.00000);
DRKEN; FNTEXT(-13.000,-09.000,2,"50");
FNTEXT(-17.000,-13.000,2,"50");
FNTEXT(-17.000,-09.000,2,"50");
FNTEXT(-13.000,-13.000,2,"50");
LITEN; FNTEXT(-15.000,-11.000,2,"50");
DPYUP(-1,-1);
KILJOB(FJ);
END ;